home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch1 / includes < prev    next >
Text File  |  1991-01-07  |  498b  |  23 lines
  1. #!/usr/bin/perl
  2.  
  3. # First extract the include lines from each file.
  4.  
  5. foreach $file (@ARGV) {
  6.     open(FILE, $file) || warn "Can't open $file: $!\n";
  7.     while (<FILE>) {
  8.     if (/^#include\s+["<]([^">]*)[">]/) {
  9.         $included = $1;
  10.         $includes{$file} .= $included . ' ';
  11.     }
  12.     }
  13. }
  14.  
  15. # Now print them out in sorted order.
  16.  
  17. foreach $target (sort keys(%includes)) {
  18.     $dependencies = $includes{$target};
  19.     foreach $dependency (split(/ /, $dependencies)) {
  20.     print "$target: $dependency\n";
  21.     }
  22. }
  23.